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Objectives 


jfSkQCtS 


exercise  to  create  package 
specification  and  body 

Write  packages  that  use  the  overloading 
feature 


Use  Forward  Declarations  to  avoid  errors 
with  mutually  referential  subprograms 

variables  with  a  one-time-only 


procedure 


-  Invoking  Package  Function  from  SQL 

-  Understand  persistent  states 
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Creating  a  Package  Specification:  Example 


CREATE  OR  REPLACE  PACKAGE  comm_package 
IS 

g_comm  NUMBER  :=  0.10;  --initialized  to  0.10 
PROCEDURE  reset_comm 
(p.comm  IN  NUMBER); 
END  comm_package; 

/ 


G_COMM  is  a  global  variable  and  is  initialized 

to  0.ldfA^_  /  \ 


RESET_COMM  is  a  public  procedure  that  is 
implemented  in  the  package  jiody.  V 


\  \  \ 
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Creating  a  Package  Body:  Example 

CREATE  OR  REPLACE  PACKAGE  BODY  comm  package 
IS 

FUNCTION  validate_comm  (p_comm  IN  NUMBER) 
RETURN  BOOLEAN 
IS 

v  max  comm  NUMBER; 
BEGIN 

SELECT  MAX(comm) 

INTO  v  max  comm 

FROM  emp; 

IF  p  comm  >  v  max  comm  THEN  RETURN(FALSE); 

ELSE  RETURN(TRUE); 
END  IF; 
END  validate  comm; 

•  •  • 
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Creating  a  Package  Body:  Example 


PROCEDURE  reset_comm  (p_comm  IN  NUMBER) 
IS 

BEGIN 

IF  validate_comm(p_comm) 

THEN  g  comm:=p  comm;  —reset  global  variable 
ELSE 

RAISE_APPLICATION_ERROR(-20210,'Invalid 
commission'); 

END  IF; 

END  reset_comm; 
END  comm_package; 
/ 
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Declaring  a  Bodiless  Package 


CREATE  OR  REPLACE  PACKAGE  global,  vars  IS 

mile_2_kilo  CONSTANT  NUMBER  :=  1.6093; 

kilo_2_mile  CONSTANT  NUMBER  :=  0.6214; 

yard_2_meter  CONSTANT  NUMBER  :=  0.9144; 

meter_2_yard  CONSTANT  NUMBER  :=  1.0936; 
END  global_vars; 

/ 

EXECUTE  DBMS_OUTPUT.PUT_LINE(  20  miles  =  '  |  1 20* 
global_vars.mile_2_kilo  |  | '  km') 
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Overloading 


-  Allows  you  to  use  the  same  name  for 
different  subprograms  inside  a  package 

-  Requires  the  formal  parameters  of  the^^J^ 
subprograms  to  differ  in  number,  order,  or  „ 
4atatypcr1ira 

Allows  you  to  build  more  flexibility.  A  user  or 
application  is  not  restricted  by  the  specific 
datatype  or  number  of  formal  parameters 

/  \  ca~ 

-  Restriction:  Only  local  or  packaged 
subprograms  can  be  overloaded 
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Overloading:  Example 


DEFAULT   ' unknown ' ) 


CREATE  OR  REPLACE  PACKAGE  BODY  overj>ack 
IS 

PROCEDURE  add_dept 

(v_deptno     IN      dept . deptno%TYPE , 

v_name  IN  dept . dname%TYPE  DEFAULT  'unknown 
v_loc  IN      dept . loc%TYPE 

IS 

BEGIN 

INSERT  INTO  dept 
VALUE  S     ( v_dep tno , v_name , v_l  o c ) 
END  add_dept; 
PROCEDURE  add_dept 

(v_name        IN    dept . dname%TYPE 
v_loc  IN     dept . loc%TYPE 

IS 

BEGIN 

INSERT  INTO  dept 

VALUES     ( dep t_dep tno . NEXTVAL , v_name , v_loc ) ; 
END  add_dept; 
END  over_j?ack  ; 


DEFAULT  'unknown' , 
DEFAULT   ' unknown ' ) 
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Identifiers  must  be  declared  before  referencing  them. 


CREATE  OR  REPLACE  PACKAGE 

BODY  f orward_pack 

IS 

PROCEDURE  award  bonus ( . 

IS  ~~ 

BEGIN 

calc  rating ( .    .    . )  ; 

-Illegal  reference 

END  • 

PROCEDURE  calc  rating ( . 

■  ■) 

IS 

BEGIN 

END; 

END  forward  pack; 
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CREATE  OR  REPLACE  PACKAGE  BODY  f orward_j>ack 
IS 

PROCEDURE  calc_rating ( .    .    . ) ; 
--  forward  declaration 

PROCEDURE  award_bonus ( .    .    . ) 
IS  --  subprograms  defined  in 

BEGIN  --  alphabetical  order 

calc_rating ( .    .    . ) ; 

•       •  • 

END; 

PROCEDURE  calc_rating ( .    .    . ) 
IS 

BEGIN 

•        •  • 

END; 

END  f orward__pack; 
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Creating  a  One-Time-Only  Procedure 


CREATE  OR  REPLACE  PACKAGE  taxes 
IS 

tax       NUMBER ; 
...     --  declare  all  public  procedures /functions 
END     taxes ; 

CREATE  OR  REPLACE  PACKAGE  BODY  taxes 
IS 

...   --  declare  all  private  variables 
...   --  define  public/private 
procedures /functions 
BEGIN 

SELECT  rate_value 
INTO  tax 
FROM  tax_rates 
WHERE         rate_name  =   '  TAX '  ; 
END  taxes; 
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Invoke  a  Package  Function  from  SQL  Statements 


SELECT  taxe 

s_p 

ack .  tax  (s< 

al) ,  sal,  ename 

FROM      emp ; 

TAXES  PACK 

TAX  (SAL) 

SAL  ENAME 

400 

5000  KING 

228 

2850  BLAKE 

Mi   W  «^  W             ■     111.  .1^1-1 

196 

2450  CLARK 

238 

2975  JONES 

100 

1250  MARTIN 

128 

1600  ALLEN 

120 

1500  TURNER 

7  rows  sele 

:cte 

d. 
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Persistent  State:  Package  Variables 


Time 


Scott 


Jones 


09:00 
09:30 

09:35 
10:00 

11:00 
11:01 


EXECUTE 

comm_jpackage .  reset_comm- 
(120) 


EXECUTE 

comm_jpackage .  reset_comm- 
(4000) 


INSERT  INTO  emp 
(ename , comm)  VALUES 
( 'Madonna' ,2000)  ; 

EXECUTE 

comm_package . reset_comm- 
(170) 


ROLLBACKS- 
EXIT; 


Invalid  commission 


10 


■Till 


EXIT 
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Persistent  State:  Package  Cursor 


CREATE  OR  REPLACE  PACKAGE  pack_cur 
IS 

CURSOR  cl  IS  SELECT  empno 

FROM  emp 

ORDER  BY  empno  DESC; 
PROCEDURE  procl_3rows; 
PROCEDURE  proc4_6rows ; 
END  pack_cur; 

1  
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Persistent  State:  Package  Cursor 


CREATE  OR  REPLACE  PACKAGE  BODY  pack_cur 
IS 

v_empno  NUMBER; 

PROCEDURE  procl_3rows 
IS 

BEGIN 

OPEN  cl; 
LOOP 

FETCH  cl  INTO  v_empno; 
DBMS_OUTPUT . PUT_LINE ( ' Id  : ' 
| | (v_empno) ) ; 

EXIT  WHEN  cl%ROWCOUNT  >=  3; 
END  LOOP; 
END  procl_3rows; 
 (continued. . ) 
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Persistent  State:  Package  Cursor 


(continued. . ) 


PROCEDURE  proc4_6rows  IS 
BEGIN 
LOOP 

FETCH  cl  INTO  v_empno; 
DBMS_OUTPUT . PUT_LINE ( ' Id   : ' 
| | (v_empno) ) ; 

EXIT  WHEN  cl%ROWCOUNT  >=  6; 
END  LOOP; 
CLOSE  cl; 
END  proc4_6rows ; 


END  pack_cur; 
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Persistent  State:  Package  Cursor 


SQL> 

SET  SERVEROUTPUT 

ON 

SQL> 

EXECUTE  pack  cur 

.procl 

3rows 

Id  :  7934 

Id  :  7902 

Id  :  7900 

SQL> 

EXECUTE  pack  cur 

.proc4 

6rows 

Id  :  7876 

Id  :  7844 

Id  :  7839 
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Summary 


-  Overloading    ~j\T  I 
Forward  referencing^  ^^<^^^^_^ 
One-time-only  procedures 
Persistent  state  of  packaged  variables 
Invoking  Package  Function  from  SQL 


\  \  \ 
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v 


Thank  You  ! 
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